
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Imports System.Web.Security

Namespace _2bMatesSite
	''' <summary>
	''' Summary description for delete_account.
	''' </summary>
	Public Partial Class delete_account
		Inherits BaseWebPage
		Protected lblGroupMessage As System.Web.UI.WebControls.Label
		Protected lblGroupPageTitle As System.Web.UI.WebControls.Label
		Protected htPageConstants As New Hashtable()

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
			' Put user code to initialize the page here
			' this.pageTemplate.PageTitle = PageTitles.DEELET_ACCOUNT_PAGE;
			' init page from XML
			Me.initPageTitles(Constants.DELETE_ACCOUNT, "", Form1, Nothing, htPageConstants)
			Me.initAdvertisements(Form1, Nothing)

			Dim isLogoutClicked As String = Request.Params("logout")

			If Request.Params(Constants.GROUP_PARAM) <> Nothing AndAlso Request.Params(Constants.GROUP_PARAM) <> "" Then
				lblMessage.Text = Me.GetPageConstText(htPageConstants, "CONST_GroupMessage_TEXT")
				lblPageTitle.Text = Me.GetPageConstText(htPageConstants, "CONST_GroupTitle_TEXT")
			Else
				hlBackToGroup.Visible = False
			End If

			If isLogoutClicked = "1" Then
				LoggedUser = Nothing

				'-- kk forum logout
				FormsAuthentication.SignOut()
				If Constants.HAS_FORUM = Constants.SHOW_ON Then
					Session.Abandon()
				End If

				Response.Redirect(Constants.DELETE_ACCOUNT)
			End If
		End Sub

		#region Web Form Designer generated code
		Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		''' Required method for Designer support - do not modify
		''' the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()
		End Sub
#End Region

		====================
        ' This public property was added by conversion wizard to allow the access of a protected, autogenerated member variable Form1.
		====================
        Public ReadOnly Property Form1() As System.Web.UI.HtmlControls.HtmlForm
            Get
                Return Migrated_Form1
            End Get
        End Property
        'set { Migrated_Form1 = value; }
    End Class
End Namespace






